(Fmake_indirect_buffer): Check that NAME is a string.

diff --git a/src/buffer.c b/src/buffer.c
index d62e186fda8105bc7edcf5147cbf45aa33fdd3b0..403baa817d3165b4875b744cbc1a00ca824c8e10 100644 (file)
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -532,6 +532,7 @@ CLONE nil means the indirect buffer's state is reset to default values.  */)
   Lisp_Object buf;
   struct buffer *b;
 
+  CHECK_STRING (name);
   buf = Fget_buffer (name);
   if (!NILP (buf))
     error ("Buffer name `%s' is in use", SDATA (name));